ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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MODULE showsystem (IDENT = ‘v04-0 


5S 


00°, 
ADDRESSING_MODE (EXTERNAL = GENERAL)) = 
BEGIN 


i 
APES SLISIISI IIIT TIT TTT TTT TTT TTT rrr rrr rir iri tii iii iiiiitiiiiiigy 


nS 

3 5 : 

; ; 1 

3 8 + 1 Ie * 

3 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8B , 

3 10 10 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. # 

3 1} ip : ;* ALL RIGHTS RESERVED. : 

; ig ig 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

F} 14 16 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

; 15 18 1! esti OF THE ABOVE sor ye eye NOTICE. THIS SOFTWARE OR ANY OTHER * 

3 18 18 1 !* COPIES THEREOF MAY cM BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 

3 1 1 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 + ‘ H : > TRANSFERRED. * 

+. . ® 

; 0 80 0 1 !e He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 

5 1 021 1 !# SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; ; ¢ ! he CORPORAT I Ow. : 

c .* 

$ 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
6 0 1 !® . 

: 7 $059 1 Ie « 

4 ; 8 3 ! ‘taeda aaah tain aniaai 

: 30 030 1! 

iB 34 ia 

: ¢ 0038 ; FACILITY: SHOW utility 

: «35 0035 1 | ABSTRACT: 

3 1 4 $ : : This module contains the routines for the SHOW SYSTEM command 

; 38 Hf 1 | ENVIRONMENT: 

5 4 s¥4 : VAX native, user and kernel mode 

: $3 boas \ ; AUTHOR: Gerry Smith CREATION DATE: 30-Jul-1982 

; cs ist | MODIFIED BY: 

> 45 045 1 v03-007 AEWO002 Anne E. Warn 27=F eb-1984 

; 46 B08 1! Beer gent ze 'Ph.Mem' format to “handle increased process 

3 rtf 004 : working set sizes. 

: 49 3 fi v03-006 AEWO001 e€. Ww 02-F eb-1984 

5; @ 0050 1! Reorganize the sHou SY STER “display. 

; 5 3) : - mene the te oy fit on an 80 character display by 

Py aking ou e 

3 § 83g 1! ~ “fe the qualifier /FULL ie, “the ole: all information 

3 4 541! + us add a second Line 

3 5 55 1! - Add the system node nome to the header. 

a. a 026 1! - Add the number of d Gays © each process CPU time. 

3 5 057 1! - Add buffered 1/0 to the aseeat /0 for each process. 


H 14 
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36 33 v03-005 LMP0140 L. Mark Pilant 23-Aug-1983 23:29 
oY : Add support for alphanumeric uics. 
6 § v03-004 GASO117 Gerry Smith 12-Apr-1983 
Instead of display ing MWAIT, dis Loy which resource 
n 


waiting for that. 
25-Feb-1983 


the process is await 


v03-003 CwH1002 CW Hobbs 
Use extended pids for the process ids. 


v03-002 GAS0107 Gerry Smith 88-Feb-1983 
Collect all the qualifiers before making checks on 
whether or not any were set. 


v03-001 GAS00103 17-Jan-1983 
Initialize the PCB before going into the PIX Loop. 


g. or MUTE 


o 
uw 
wn 


~“ 
o 


ii tk a ed od od 8 dd 


nN 

ous 

So 

So 

SANNN 
AUiSWnr—C oOo 


o 
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' locked data area. 


' 
a 
' 
t 
LITERAL d$k_length = SBYTEOFFSET(d$t_name) + pcb$s_lname; 


' 
! Define two bits in the data area, DSV_NETWRK and D$V_BATCH, which 

!' correspond to PCBSV_NETWORK and PCBSV~BATCH, except Ehat they reference 
! the process status from the PCB status longword, rather than from the 
beginning of the PCB. 


2 77 #1 

o> 3 78 1! 

; » 7 ! Include files 

; > 

3 z 1 LIBRARY ‘SYSSLIBRARY :1 1B"; ! VAX/VMS system definitions 
; : : : REQUIRE ‘SRCS:SHOWDEF'; ! SHOW common definitions 

3 : ; : ! Define macro to make a string descriptor: sd_A 

; «88 185 1 MACRO 

3 9 4 01 ° 1 SDCA) = 

; 4 : ‘ ; BIND ZNAME('SD_',A) = SDESCRIPTOR(A)2; 

cf. © 189 1! 

3 38 1 1 ! Define the flags for SHOW SYSTEM 

; 94 191 171! 

. & ae 0. 1, O% 

3 sys$v_proc = 0, 0, 1, 0%, 

; $s 0194 1 sysivrsusp © 6. 1. 1, OF, 

; «#498 195 1 sys$v_net = 0, ¢° 1, O02, 

; 3136 1 sys$v_batch = 0, 3, 1, O%, 

; 100 0197 1 sys$v_full = 0, 4, 1, 0%; 

; 101 3138 1 

3 10¢ 01 1! 

; 10 0200 1 ! Macros to define the Layout of the data block to used to 

; i3¢ 8 01 ' hold information on a particular process 

; 106 0 08 1 MACRO 

3; 10 04 1 d$l_pid = 0, 0, 32, 0%, ! Process ID 

: 108 0205 1 d$l_owner = 4, 0, 32, 0%, ! Temp owner storage/process name Length 
: 1% 0507 1 detretate = 192 05 35. OF | ivgeete Stele eee 
3; 111 ( 08 1 “pri = 18. 0, 32, 0%, i Current Ay 
MG BMG elec 5 ok a oe 155" ppcleniagtedies aoe 
Py u = a o e o . 

3 (116 0211 1 dsl-ptt s = 28, 0, 32, 0%, ' Page fault count 

3 132 8 \¢ ' dst pagent = ee » ame be pi ebet page count 
P+ sts a — C Oo ve . atus 

3 119 0214 1 d$l"uic = 40, 0, 32, bee ' Process UIC 

: 118 0215 1 d$l_lef = 44, 8. « We ' Local event flag 

; iv 8 ; : d$t_name = 48, 0, 8, O02; ! Process name 
121 18 1! 

3 i 1 : ! The following Literal depends on DST_NAME being the Last field in the 
; 134 1 

gs Yes 1 

s 126 1 

3: 127 1 

: 128 1 

; 129 4 

3 f 1 

i 132 

Py § 1 

oy 1 


—OOONOVVEWN — OOONOu 


POPIPIPIPIPIPIPIPIPIPOPIPINININIPINININPINYPYAD 
AWAPONOPONENMONONONINPONY 


CRO 
d$v_netwrk = 0, SBITPOSITION(pcb$v_netwrk), SFIELDWIDTH(pcb$v_netwrk), SEXTENSION(pcb$v_netwrk)%, 


; 135 0232 1 d$v_batch = 0, SBITPOSITION(pcb$v_batch), SFIELDWIDTH(pcb$v_batch), SEXTENSION(pcb$v_batch)2; 
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; 137 361! 

Fy 3 ¢ : ; Construct a table of process states. THIS IS AN ORDERED TABLE. 

: 4 1 LITERAL rsn_cnt = 14; 

; 16 1 OWN 

3; (16 1 state_table : VECTORC14) 

3; 14 1 INITIAL (estring('COLPG'), 

3; 6146 4 1 estring( MUTEX"), 

1g | an IH 

; 129 43 1 estring('LEF')~ 

: 16 44 1 estring(LEFO'S, 

; 16 45 1 cstring('H1B') 

: 150 66 1 cstring("H1B0'S, 

; (151 47 1 cstring('SUSP’) 

: 1 ; 48 1 cstring('SUSPO'S, 

. % 49 1 cstring('FPG'), 

; 1546 50 1 cstring('COM') 

; 155 31 1 cstring('COMo’s, 

3 138 § 1 ae DM al ee 

3; 15 53 1 rsn_table : vec rsn gnt) 

; 158 54 (1 INITIAL (cstr ng(‘RWAST ), ! AST wait 

; 159 : cstring('RWMBX'), ! Mailbox full 

: 160 8 1 cstring(*RWNPG'), ! won=paged pool 

: 161 7 oe cstring(*RWPFF"), ! Page file full 

3 126 3 1 cstring(*RWPAG'), ' Paged pool 

; 16 0259 1 cstring(*RWBRK'), ! Waiting for BROADCAST to finish 
: 188 O56) CSE iMac RUOUG'D. Skecbed Gets hse 

: 166 0 6¢ 1 cstring(*RWLCK'), i Lock ID data base 

3s 635 1 cstring("RWSWP'), ! Swap file space 

3; 168 0264 1 cstring(*RWMPE'), ! Modified page List empty 
i BRE Ran ta Mt PED Lehcltnedhoy 
; 172 3 ef ' cstring(*RWCLU')5; i Cluster translation wait 
: 17 91! 

3; 1746 8 % 1 ! This ASSUME macro makes sure that we have all the miscellaneous resource 
3 1%? 4! ; waits in this table. 

: 179 0378 1 SASSUME(rsn_cnt, EQL, rsn$_max-1) 

3; 178 0274 1 


14 
voe=000 IE$eoctg8s Q2:98:08  HMGU OMENS a2, 


3 3 7 3! 

; «(181 76 1! Table of contents 

. ae 

iy 79 1 FORWARD ROUTINE 

; 185 1 showSsystem : NOVALUE, 

? 1 get da a, 

3 : : print_data : NOVALUE; 

at 1 FORWARD 

c-'% ; Ss lock_start : VECT Bho. 

3 13) ; lock_end : VECTOR(COJ; 

; 198 1 ——- 

; 196 1 scs$ga_localsb, ! Local system block 

3 6199 90 1 sys$gq_version, : syeten version 

3 138 91 #1 exe$gl_abstim, ! Time system has been up 
3; 19 4 1 sch$gl_pcbvec : REF VECTOR, ! PCB vector 

; 138 ot : sch$gl_maxpix; ! Maximum process index count 
; 200 95 1 cottage atte 

; 201 1 LibSget_vm, 

5 4 97 1 cli$present 

; 20 0298 1 show write_Lline : NOVALUE; 


Page 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
: 


§ 
3 
; 
9 
; 
g 
3 
; 
8 


SSAFUNS=SS 


WENO OONOAUS WO OO 


us 


AEERR ee Ree es 


DORMAMMNAMNMNMNANI ES BBE EEE EE eyes MIMINMINININNINIDN 2 3 3 SO OO 


: 
: 


WANA 


ST ab hb b ehh hl 


GLOBAL ROUTINE showSsystem : NOVALUE = 
BEGIN 


SHOWSYS .832;1 


i This is the driver routine for the SHOW SYSTEM function. 
! qualifiers are gathere 
: routine is called via 


scratch space is allocated, the data-gathering 
MKRNL, and then the data is printed. 


General status return 
Size * sereten area 


e 
list for calls 
Address Limits of scratch area 


' 
Collect qualifiers. 


flags 
flags 


flags 
IF 


Allocate a scratch area in which to put data about the processes. 
The size of the scratch area is determined b 
tes of information per process (DSK_LENGTH 
e maximum number of processes 


the amount of 


n the system, and then a f 
The beginning and ending addresses of the area will 
returned in DATA. 


size = (.sch$gl_maxpix * dSk_length) + (3 * 512); 
IF NOT (status = LIBSGET_VM(size, 


THEN SIGNAL_STOP( 
dataC! 


! This many bytes 
' Put starting address here 
' Stop if error 


ata 
S_insvirmem, 0, .status); ; 
1 ! Put ending address here 


i Lock the first page of the scratch area, and the code that runs at elevated 
IPL, into the process working set. 


desc 
desc wen 
If NOT (status = 

THEN SIGNAL_STOP(.status); 


desc 
desc 


LKWSETCINADR = desc)) 


£8 "+ dSk_Llength; 
IF NOT (status = SLKWSETTINADR = desc)) 


N1 
om eee 91:98:08 YGU SMessta,ttetatt 


4 
231 


CLIUTL.SRC SHOwSY 
THEN SIGNAL _STOP(.status); 


i Call the got en, routine in kernel mode, passing the address 
Limits as an argument. 
sc 


aesef = deta; 


desc = flags; 
IF NOT (status = ecuee, ey iy = get -de data, 
ARGLST = desc)) 

THEN 

BEGIN 

SIGNAL (. status) ; 

RETURN; 

END; 


} Format and print the data. 
print_data(data, flags); 
RETURN; 
END; ! End of showSerror 

-TITLE SHOWSYSTEM 

-IDENT \V04-000\ 

-PSECT SPLITS,NOWRT,NOEXE,2 


47 50 4C 4F 43 05S Q0000 P.AAA: .ASCII <5>\COLPG\ 
58 «8 54 55 ry, 8 00006 P.AAB: .ASCII <5S>\MUTEX\ 

$8 45 4 QOOOC P.AAC: .ASCII <3>\CEF\ 

5 6 50 th P.AAD: .ASCII <3>\PFW\ 

46 45 4 0014 P.AAE: .ASCII <3>\LEF\ 

4F 46 45 rt} 04 00018 P.AAF: .ASCII <4>\LEFO\ 

42 49 4 3 0001D P.AAG: .ASCII <3>\HIB\ 

4F 42 49 & 4 00021 P.AAH: .ASCII <4>\HIBO\ 

50 53 55 5 4 00026 P.AAI: .ASCII <4>\SUSP\ 
4F 50 5 55 5 Be , P.AAJ: .ASCII <5>\SUSPO\ 

4 50 4 031 P.AAK: .ASCII <3>\FPG\ 

4D GF 4 0035 P.AAL: .ASCII <3>\COM\ 

4F r+} GF 4 039 P.AAM: .ASCII <4>\COMO\ 

5 ; & P.AAN: .ASCII <3>\CUR\ 
54 53 41 42 P.AAO: .ASCII <5S>\RWAST\ 
5 $f 4D 7 48 P.AAP: .ASCII <5>\RWMBX\ 
47 50 4 7 of P.AAQ: .ASCII <5>\RWNPG\ 
4 46 2 7 0 ; P.AAR: .ASCII <5S>\RWPFF\ 
4 41 7 A P.AAS: .ASCII <5>\RWPAG\ 
48 52 4 7 60 P.AAT: .ASCII <5>\RWBRK\ 
47 4D 4 7 66 P.AAU: .ASCII <5>\RWIMG\ 
4F 65 51 7 $ P.AAV: .ASCII <S>\RWQUO\ 
4 4 3 7 P.AAW: .ASCII] <S>\RWLCK\ 
5 5 7 78 P.AAX: .ASCII <5S>\RWSWP\ 
4 8 40 7 7E P.AAY: .ASCII <5S>\RWMPE\ 
42 4D 57 0084 P.AAZ: .ASCII <5>\RWMPG\ 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Oe Se Be Be 


rain SOT Pe ee, Ae pled opens: ages 


w$ep-19be 12:68:08 ECLTUTLosneSsnowsys-0sos1 on 


Sa SS BF Mtoe scams: casey samen 
e “onde one : PARC: Asc § RIS en 
00 00 53 53 45 43 4F 52 50 ot As p-ABE: “ASC RENO 
00 48 52 4F 57 “oe Ae ne p-ABH: “AStiT Hele 
00 00 00 48 43 54 itty a9c8 Sr “ASCH \BATEHY <O><0><0> 
§0080000" 4 “LONE  og'¢6 P.ABJ 


-PSECT SOWNS,NOEXE,2 


00000000" 00000000" 00000000" 00000000 00000000" 00000000° 00000 STATE_TABLE: 
«ADDRESS P.AAA, P.AAB, P.AAC, P.AAD, P.AAE, 


00000000" 00000000" 00000000* 00000000° . 00° 00018 P.AAF, P.AAG, P.AAH, P.AAL, P.AAJ, P. AAK, = 
’ its! PLAAL, P.AAM, P.AAN ; 
. 0038 RSN_TABLE: 


sues 
00000000" 00000000° 00000000° 00000000° 00000000 
00000000 
00000000 


-ADDRESS P.AAO, P.AAP, P.AAQ, P.AAR, P.AAS, ; 
00000000* 00000000° 00000000° 00000000' AAT, P.AAU, P. Wy P.AAW, P.AAX, P. AAY, = ; 


AAZ. P.ABA. P 
CS$GA -LOCALSB, syssca VERSION 
XES$GL~AB L_PCBVEC 
‘+ t+ events stoSceT Vv 
[EXTRN SYSSLKWSET, SYSSCMKRNL ~ 


-PSECT SCODES,NOWRT,2 


w 
“4 
_ 
= 
_ 


Pp. 
P. 
TRN § 
E 
S 
C 


003¢ 99009 .ENTRY SHOWSSYSTEM, Save R2,R3.R4,R5 
5 000000006 0 9E 9008 MOVAB SYSSLKWSET, R5 
4 000000006 9E 0000 MOVAB LIBSSTOP, R4 
3 000000006 0 H 0019 HOVAB CLISPRESENT.. R3 
5E § 001 SUBL2 #24, SP 
0000' CF SF OOOIA PUSHAB P.AAC 
63 gi FB 0 3 CALLS #i, CL ISPRESENT 
04 AE 01 04 0 FO 000 INSV RO, as, #1, FLAGS 
0000" CF 9F 7 PUSHAB 
63 1 FB B CALLS ii. Cy 1SpRESENT 
04 AE 01 01 0 F E INSV FLAGS 
0000" CF 9F 000 PUSHAB p G 
63 1 FB 00 CALLS #1, ¢ ISPRESENT 
06 AE 01 02 0 F 058 NSV RO , #1, FLAGS 
0000" CF 9F 00041 PUSHAB 
63 o1 F 45 CALLS #i, ¢ ISPRESENT 
04 AE 1 0 F 48 INSV RO, #3, #1, FLAGS 
f 4 AE :e 4 BBS 1, FLAGS, 5 
4 AE : E BBS ¢: FLAGS, 1$ 
4 4 AE BBS #3. FLAGS. 1$ 
4 ar 1 6 D BISB2 #1. FLAGS 
50 000000006 0 6 61 18: ASHL #6, SCHSGL_MAXP'X, RO 


facta ol ea es GS he ne ees oe 


SHOWS ySTER -Sep-1984 91:66:08 ag Bliss-32 V4.0-742 Page (J 
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6E 06 CO 9E 00069 MOVAB 1536(RO), SIZE : 
AE OF oF PUSHAB DATA + 0339 
AE 9F PUSHAB SIZE ; 
000000006 9 F 7% CALLS #2, LIBSGET_VM : 
D 78 MOVL RO, STAT : 
D € 7 LBS Atus, ; 
DD PUSHL ATUS + 0347. 
D4 CLRL = SP) : 
007812F2 BF DD PUSHL 69170 : 
64 3 Fe CALLS #3, LIBSSTOP : | 
50 8 AE 6 2$: ADDL 12€, DATA, RO + 0342. 
¢ AE fF OA : 9 MOVAB =1(RO), DATA+4 : | 
AE 9000v CF 9 MOVAB LOCK_START, DESC + 0348 
14 AE 000v cr 3 0 9 VAB  LOCK-END, BESC+4 > 0349 
E 7C OOOA CLROQ (SPY + 0350 
18 AE 9F OOOA PUSHAB 5 F 
$5 9 FB 000A CALLS #3, SYSSLKWSET ; 
: D OO0AC MOVL Tys ; 
0 2g E8 OOOAF BLBS § STATUS, 3$ : 
DD 000B2 PUSHL STATUS + 0351 
64 01 FB 000B4 CALLS #1, LIBS$STOP ; 
10 AE 08 AE DO 00087 3$: MOVL DATA, + 0353 
16 AE 08 AE 00000040 gf ci o0B¢ ADDL #64, DATA, DESC +4 ; 0354 
18 AE OF itt PUSHAB DESC ; 
65 9 FB 000¢B CALLS #3, SYSSLKWSET ; 
: 0 pO 000¢ MOVL RO, STATUS F 
0 2g £8 000D BLBS STATUS, 4$ F 
52 DD 000D4 PUSHL STATUS : 0356 
64 01 FB 90006 CALLS #1, LIBSSTOP ; 
10 AE 02 0 0009 4$: MOVL : 036 
14 AE 08 AE 9E 9900p MOVAB DATA, DESC+4 : 036 
6D 04 AE 9E O00E MOVAB FLAGS, DESC+8 + 0364. 
10 AE 9F OO0E6 PUSHAB DESC : 0366 | 
0000v CF 9F O00E9 PUSHAB GET_DATA : 
000000006 99 98 FB OOOED CALLS #2, ~SYSSCMKRNL ; 
2 DO O00F4 MOVL RO, STATUS : 
OA 2g E8 OO0F7 LBS STATUS, 5$ ; 
52 DD OOOFA PUSHL STATUS + 0369 
000000006 00 01 FB dor CALLS #1, LIBSSIGNAL tate 
04 AE F 0104 5$: PUSHAB FLAGS : 0376 | 
oo00v cr © 05 fb OO10A CALLS. #2. PRINT_DATA 
04 itt RET . : 0379 


; Routine Size: 272 bytes, Routine Base: S$CODE$ + 0000 


Dd 15 
SHOWSYSTEM 16-Sep-1984 01:22:0 AX-11 Bliss-32 V4.0-742 
yee 808 13-808-1 382 93:38:08 CLIUTL.SRCJSHOWSYS .832;1 
7 OWN tosh start : VECTORCO) PSECT ($CODES); ! Beginning of locked code 
; gurl Get_data (data, flags) = 
90 


— 


! 

} DATA <== address of the scratch area 

} FLAGS <= options longword, to tell what kind of processes are desired 
i Outputs 

DATA <= will contain information on the processes 

! 


P 
data : REF VECTOR 
flags : REF $BBLOCK; 


REGISTER 
locked : REF S$B8BLOCK 
scratch : REF $BBL 
pcb : REF $88 . 
null, 


Pointer to locked page 
Pointer to scratch area 
Pointer to PC 

Null process PCB address 
Process index 


OCK, 
LOCK 


The first page of the scratch area is locked, so that it can be accessed at 
elevated IPL. This locked portion will be a temporary storage place for 
information about one process at a time. The remainder of the scratch area 
will contain information on the processes which are to be displayed. 

Set up these areas so that they can be addressed easily. 


locked = -daral); Point to locked area 
scratch = .datal0) + d$k_length; ' Scratch area is just beyond 
the locked data 


Save address of NULL PCB 


null = pcb = .sch$gl_pcbvec(0); 
ce pix FROM 0 TO .sch$gl_maxpix 
BEGIN 

SET ar CIEL S SYMCADS 


If 7 QL 
ae = .sch$gl_pcbvec(.pix]) NEQ .null 


Raise IPL 


pid) = speblosbsi epid); ! Use the extended pid 
coves") SocBbpeeeteaastoe” 

“state] z -pebtpebSw_ state); 

“pgcnt) ” bE bSu ppgent] + .pcb(pcb$w_gpgcnt); 
matsp) = -pebipcb$t_efumd; 


Be Se Se Se Fe Ge Be Se Se Se Se Se Ge Se Se Se Se Ge Se Se FH Se Se Se Se Se FH FH Se Se Se Ge Ge Fe Se Se Se Se Se Se Ge Se Ge Se Ge Se Ge Se Ge Ge Se Se Se Ge Ge oe ees 


FPF PuUw Ye} POPOPONPOPONININY 2 9 2 SO OOO A ae woononowovowd 

a Oo Dte a Wr — SHUN SOMDNANE UNV MOSm WER Rosoe SSSERESS 
Sob td APU OOD ee Dh oee oO Se OR eR Oe 
ANE WUR 20 OONOAUS WIN 9 OONOAUE WN OO ONAUE WN NOUS un: Oc MFWN—O 


1 
1R 
BEGI 
leee 
: 
! This routine executes in KERNEL mode. It scans all the processes in the 
system, gathering information on them. 
4 
4 
4 
4 
4 
4 
4 
4 


RETURN 1; 
END; 


57 


A6 


: 320-19 rete fet Mae NT bet tothe hare Lae 


-Sep-1984 
jf, ¢\eckedlest_stsi = .pcb(pcb$l_sts]) 


BEGIN 
lLocked([d$l_iocnt) = ‘See ace: pr aie pha phd$l_ gjecne 


-pcbLpcb$l phd$i— 
pecked te pflts]_= .$BBLOCK eck sien 
locked(d$l-cputim] = .$BBLOCKL vocb pcbST_ph 


+ tp phd$T_cputim 
CHSMOVE (pcb s_lname, 


$t_lname 
fockeatast. none) 
SET_IPL( 
4 ettegsl ysSy_pr procd., 
(.flags(sys$v_ J_AND .locked{[d$l_owner] NEQ 0 
(. flags sys$v_ Baten) AND .$BBLOCKCLocked(d$l_s 3, d$v_batch]) 
OR (.flags(sys$v-net) AND .$BBLOCKClocked(d$l_stsJ, d$v_netwrkJ) 


an scratch = CASMOVE(d$k_length, . locked, perten 


SET_IPL(0); 
END; 


! Return 
! End of GET_DATA 

00110 LOCK_START: 
-BLKB O 


OFFC 00000 GET_DATA: 


«WORD ave oa R3,R4,R5,R6,R7,R8,RI,R10,R11 


56 04 BC DO 00002 MOVL abhta K 
04 BC 00000040 BF C1 00006 ADDL3 SDATAS SCRATCH 
000000006 00 »D 000F MOVL Seg _PCBVEC, R11 
6B DO 00 16 MOVL (R11), "PCB 
5 D0 0001 MOVL PCB, wnt 
5A o1 ce 001C MNEGL #1, PIX 
00 : O1F BRW 
12 DA 1$: MTPR #8, #18 
A f 0 TSTL py 
9 BEQL 2 
8 6B4A D 0 MOVL (R11)CPIXJ, PCB 
9 38 D1 CMPL PCB, NULL 
F 13 BEQL «6s 7$ 
rx. 64 AB OD 2%: MOVL 100(PCB), (LOCKED) 
6 Ab 1c OA 00 MOVL é (PCB) (LOCKED) 
8 Ab ooBc =¢ MOVL 8(PCBS, 40(LOCKE 
C Ab € AB 3C 00041 MOVZWL 44(PCB), 12(LOCKED 
10 A AB 9A 00046 MOVZBL 11(PCB). 16(LOCKED 
6 a8 3C 00048 MOVZWL 24 (PCB), RO 
1 4 A&B 3C 0004F MOVZWL (PCB), R 
0 51 Ci 23 ADDL3 R1, RO, 32(LOCKED 
2c A 4C A8 DO 000 MOVL 76(PCBS, 44(LOCKE 


phd ee 1; 
a4. p page ; 
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5 26 «AB OD 5 MOVL  36(PCB), RO 
ee 2 D MOVL RO, g(LOCKED) 
j E BLBC) Osa 
$f A MOVL &(PCB), RO 
16 a6 4 A AO ¢ $ ADDL3 (RO), 84(RO), 20(LOCKED) 
A 4¢ (AO OD MOVL 6(RO), 28( LOCKED) 
18 OA 38 OA p 7 MOVL 56(R ), 26(LOCKED) 
30 Ab 70 A 1 i 3$: MOVC3 #16, 112(PCB), 48(LOCKED) 
1 00 DA MTPR #0, #18 
1E 08 Bt c BLBS  aFLAGS, 6$ 
05 08 BC 1 € A #1, @FLAGS, 4$ 
04 Ab p 0 F TST 4(LOCKED) 
14 32 BNEG é$ 
5 98 BC 3 £1 00094 4s: BBC #3, FLAGS. 5$ 
A : A6 EO 00099 BBS #6, 37(LOCKED), 6$ 
0 8 BC £1 5$ BBC #2, @FLAGS, 7$ 
0 26 «AG gi A BBC #5. 38(LOCKED), 7$ 
67 6 0040 &F 8 00 6$: MOVC3 #64, (LOCKED), (SCRATCH) 
3 D E MOVL 3, SCRATCH 
12 6 DA 00081 7$: MTPR #0. #18 
FF 64 SA gi 000000006 F1 00084 8$: ACBL SCHSGL_MAXPIX, #1, PIX, 18 
0 1 00 000 MOVL #1, R 
04 0001 RET 
; Routine Size: 194 bytes, Routine Base: SCODES + 0110 
; 369 0462 1 OWN Lock_end : VECTOR[O] PSECT (SCUDES); ! End of locked code 
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ROUTINE print data (data,flags) : NOVALUE = 


BEGIN 

' Roaitieiietdl 

i 

: This routine prints the data contained in DATA, the scratch area 

i Inputs 

: DATA == scratch area, contains the process information (didn't I 

ust say that?) 

i FLAGS == contains the bits set for the quali tiers. It is specifically 
— in this routine to determine if the /FULL qualifier is 
‘ set. 

! 

: Outputs 

} The process data is printed. 

i 


MAP 
data : REF VECTOR, 


flags: REF S$BBLOCK; 


LOCAL 
scratch : REF S$BBLOCK, 


+ ee ° 
dese : VECTORES), 


Pointer to scratch area 

General status 

Place to put system time 
Descriptor for S$FAOL 

Storage area for process time 
Argument List for $FAOL 

16 byte buffer to receive system node 
String descriptor pointing to 
sysnodebuf 

Item List for Srone losing system 
node. (Cvms.liblutidef.b32 


! Set up string descriptor to find the logical name system table 
sd ("LNMSSYSTEM'); 


i Set up the scratch area, which contains all the data about the processes. 
: The data is located beyond the locked segment. 


scratch = .data(0) + d$k_length; ! Process data begins here. 


: ORCS 
sysnodebuf : VECTOR(16,8YTE) 
desc_sysnode: $BBLOCKCDSC$C_§_BLNJ, 


trninmist : SITMLST_DECL (ITEMS = 1); 


ee ee te 


' 
: If there is no data in the scratch area, then simply return. 


if .scratch(d$l_pid) EQL 0 
THEN RETURN; 


' 
i Determine the time the system has been 
yolue of EXESGS AOSTA. multiplying it 


p. This is done using the 
nding it to TIM. . 


u 
by the right constant and 


3; & } 

; 4 EMUL war Sete > abstim), ZREF(-10000000), ZREF(O), time); ! Ges the uptime 

; 4 desc } = d$k Len th; ! Set up a descriptor pointing 
; 431 descliJ = .dafal0J; ! to the locked (scratch) area 
3 4 ; P 0504 3 IF NOT (status = SASCTIM(TIMADR = time, i Convert the upt ime 

; 4 P 5 TIMBUF = desc, ! to ASCII, storing here, 

; 4 P § TIMLEN = gesc. ! put length here, 

; ? 5 ' CVTFLG = 0)) ! and give full date and time 
3; 4 BEGIN 

; 4 5 : SIGNAL(.status); 

; 4 2 1 RETURN; 

i eo 33 s 

; rr : : ! Initialize the descriptor for system node. 

5 664 5 desc_sysnode = 16; ! Address of space containing 
3 rer 2 desc_sysnode(dsc$a_pointer] = sysnodebuf; ! system node 

; ret 535 ! Initialize item list used to find system node 

: 449 P 0541 2 SITMLST_INIT (ITMLST = trninmlst, ! Pre-declared address for item list 
; 450 P 246 (ITMCOD = LNMS_STRING, ! Logical name translation string 
; 451 P 054 ! is to be obtained 

3 $26 P 0544 BUFADR = grenedetut, ! Address to put system node 

; 45 P 0545 BUFSIZ = 16, ' Length of BUFADR 

; 4546 Pp 278 RETLEN = desc_sysnode) ! Length of returned node 

: 08 3c8 ; 

; 43? Ere ! Get system node. Documented in Specification for VMS Logical Name Extension 
: 459 p 088) § IF NOT (status = $TRNLNM 

; 460 P 236 (ATTR = ZREF(Lnm$m_case_blind), ! Letter case makes no difference 
; 461 P 055 TABNAM = SD_LNMSSYSTE ' Logical name table to be searched 
; 46 P 0554 LOGNAM = SDESCRIPTOR('SYSSNODE'),! What to translate 

; 46 P 0555 ACMODE = ZREF(PSLSC_EXEC), ! Access mode to use 

; 464 P b22$ ITMLST = trninmlst ! Predefined item List 

: red 22 6 ) 

; rr: 226 THEN desc_sysnode[dsc$w_length] = 0 

; 469 561 — 

; 409 266 ! Strip leading underscore and trailing colons, if either, from node name 

; 47 367 BEGIN 

3 $f7 203 IF ein? snodebutlo3 mm 

> 475 aeF BEGIN 

3; 47 568 4 coec sysnodes dectu_leagth) = .desc_sysnode(dsc$w_length] - 1; 

3 of 287 4 desc_sysnodeldsc$a_pointer] = .desc_sysnodeldsc$a_pointer]) + 1; 

; 571 : 

: 276 INCRU I FROM 0 TO 1 

3 57 DO IF NOT CHSFAIL(CHSFIND_CH(.desc sysnodeldecSy. tengthd. 

3 574 -deacsySnode ds¢Sa_pointer » "Th 

3 273 THEN desc_sysnode(dscbw_length] = .desc_sysnode(dsc$w_length] - 1; 
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SSRLERE 
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SESESE 
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-Sep-19 CLIUTL.SRC 


' 
} Set up the hes haya ot 4 List, with the addresses of the descriptors of 


: the system version, the system node name, and the uptime. 


9 UPLIT(4, sys$gq_version); ! Version number is 4 bytes 
arglist esc_sysnode; ! System node name a desc 
arglist ¢ 3 } Zero to s 

i 


argl i reise Uotine string doce. 
SesclO) = .desetod - 3; , 9 desc 
' 


Get rid of trailing °'.00"' 
| Now format and print the header Lines. 
ShowSwrite_Line(ZASCID ‘VAK/VMS ‘AS on node !AS !%D Uptime !AS', 
ar Ss 
i810 { Pid Process Name State Pri 1/0 CPU 


Loop thru the scratch area, formatting and outputting the data one process 
at atime. The data block for each process is set up in as an ordered 
sequence of longwords, in the order of the arguments to $FAOL, so that the 
data block itself can be used as the parameter List to S$FAOL. ALL that is 
required is some minor fixup. 


WHILE -scratch(d$l_pid] NEQ 0 ! Loop thru all processes 
BEGIN 
Get the state. 


IF .scratchid$l_ state] GEQ sch$c_colpg 
Ano -scratchtdst state) LEQ sch$¢_cur 


BEGIN 
IF .scratch(d$l_state) EQL sch$c_mwait 
ano scratch d$T_lef] GEQ 0 


BEGIN 

IF .scratch(d$l_lef] GEQ 1 
AND .scratch(d$T_lef] LEQ rsn_cnt 

THEN scratch(d$l_state] = .rsn_tablel.scratch(d$l_lef] - 1] 
ELSE scratch(d$l"state] = cstring('RWUNK'); 


END 
ELSE scratch(d$l_state] = .state_table(.scratch(d$l_state] - 1); 
ELSE scratch(d$l_state] = cstring('UNK"); 


If the owner field is not empty. then the process is a subprocess; 
otherwise, check the status bits for a network or batch process. 


status = .scratch(d$l_sts); ' Save the status 
IF .scratch(d$l_owner] NEQ 0 

THEN scratch(d$T_sts] = string()S*) 

ELSE IF .$BBLOCKEscratch(d$l_sts], d$v_netwrk] 


SHOWSYS .B32;1 


Page flts Ph.Mem', 
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N scratch(d$l_sts] = ey aad 


: oceCscr tchid $], d$v_batch] 
N scratchid t sts) = cstring('6') 
E scratchid$l_stsJ = cstring(’ '); 


i Convert the priority from the internal format to the external format. 
scratch(d$l_pri] = 31 - .scratchCd$l_pril; 


“9 


! The process name string should be converted from the counted strin 
! format used in the PCB to a length/address descriptor, so that SFA 
! can print non-alphanumerics as periods. To do this, use the OWNER 
! field in the scratch area as the count, and point to the beginning 
! of the saved string, instead of the count. 


scratch(d$l_owner] = .scratch(d$t_namel; 
scratch(d$a_name] = scratch(d$t_name] + 1; 
i Multiply the CPU time for the process by -100000, setting it up for 
! conversion into ASCII form. 


If .status 
THEN 


s3e 


PPA AAAI REESE 
OONOUSWN—O wy a 

a yy "ya PP AAAI 

5 ¢ = OWOONOA NEW O OOO EWC, O@ 

PUP EEE EE PUN. BUI UU BB IIIA AAA 
m—om—4 
cxre=x 
wmunm 

m 
— 
~~ 


BEGIN 
desciOjs ieee ZREF(-100000), ZREF(O), time); 
+ 3 7 


60 

2: 

8 

64 
is 
567 

68 
569 0661 
ef0 BO8e goschy 3 

71 066 descl1J = proctim; ' Desc will contain the address 
276 0664 ! of where the actual time is. 
57 P 0665 IF NOT (status = SASCTIMC(TIMADR = time, ' Convert the uptime 

74 P 2066 TIMBUF = desc, ! to ASCII, storing here, 

75 P 066 TIMLEN = desc, ! put length here, : 

6 0668 CVTFLG = 0 ! and give full date and time 
57 0669 THEN 
278 0670 BEGIN 

79 0671 SIGNAL(.status); 

580 b87¢ RETURN; 
581 067 END 
266 pore ELSE 

8 75 scratch(d$l_cputim] = desc; 
2 sh, of 

86 af : Now produce the Line of text and output it. 

88 68 IF .status 

89 ( THEN 

90 BEGIN 

91 IF .flagsCsys$v_fullJ 

4 THEN Shouius D.,t TROT EASED "'8XL '15AF 'SAC !3UB!9SUL'AS '9UL !SuUW !AC!/ a2", 

-scratc 
$36 ELSE Snover teh inet EASC ES "'BxL '15AF 'SAC '3UB!9UL'AS '9UL 'SUW 'AC', 
-scratc 

38 END 

9 ELSE 

98 BEGIN 


vou-000 iesSeect98e 04:98:08 Yat, Sassta eee 


599 4 If a tlagst sysSv_ fytt) 

one 2 thew show ur ite. Lime(ZASCID "'8XL !15AF 'SAC !3UB!3(+) -- swapped out -- 

one 4 ELSE shovbur te, Line(ZASCID "!'8xL !15AF 'SAC !3uUB!3(+) -- swapped out -- 
8 


END; 
! 
} Adjust the scratch pointer to point to the next block of process info. 


SSSS3F 


scratch = .scratch + d$k_length; 
END; 


FENRIS SSLSSRANS 


San 


an 
os 
No 


RETURN; 
END; ! End of PRINT_DATA 
001D2 -BLKB 2 
00104 LOCK_END: 
-BLKB 0 
-PSECT SPLITS,NOWRT,NOEXE ,2 


40 45 54 53 59 53 24 4D 4E 4C O00D8 P.ABL: .ASCII \LNMSSYSTEM\ 
00E2 -—BLKB 2 
OOO00000A OO00E4 P.ABK: .LONG 10 
00930090" O0E8 “ADDRESS P.ABL 
45 46 4F 4E 26 53 59 OOEC P.ABN: .ASCII \SYSS$NODE\ 
4449 OOF4 P.ABM: .LON 
0000000' O00F8 ADDRESS P.ABN 
4444 OOFC P.ABO: 
00000006 00100 [ADDRESS SYS$GQ_VERSION 
6F 20 $9 53 41 4 20 53 2F 58 41 § 0104 P.ABQ: .ASCII \VAX/VMS 'AS on node 'AS '%D Uptime !'A\ 
20 44 25 21 20 53 41 21 20 65 646 6F of B13 
41 21 20 65 4 70 01 
00 00 be 012C ASCII iyeserer <> 
o 50088 01 P.ABP: .LONG 
0000000° 001 “ADDRESS P.ABQ 
5 63 6F 72 50 8 0 20 20 64 69 50 $ 0138 P.ABS: .ASCII \ Pid Process Name State Pri \ 
4 6) 74 53 20 0 20 6D $1 rt] 014 
$3 0 20 20 8 9 72 § 0156 
55 50 43 20 20 9 0 3 0 4F sf 4 0160 ASCII \ 1/0 CPU Page flts Ph.Mem\<0> 
74 6C 66 20 65 67 61 0 20 0 4 1 
00 6D 65 4D 2E 6 17€ 
1 ASCII <0><0> 
4 004 1 P.ABR -LONG 17694797 
0000' 186 -ADDRESS P.ABS 
48 4E 55 57 1 P.ABT: .ASCII >\RWUNK\ 
4B 4€E 196 P.ABU: .ASCII <3>\UNK\ 
1 19A P.ABV: .ASCII <1>\S\ 
4 1 19C P.ABW: .ASCII <1>\N\ 
4 1 01 P.ABX: .ASCII <1>\B\ 
2 1 A P.ABY: ot <1>\ \ 
41 33 21 $9 46 41 5 1 1 Q $$ 58 1 Sih P.ACA: .ASCII] \!8xXL '15AF ‘SAC ‘'3UB!9UL'AS ‘SUL 'SUW \ 
20 53 41 21 4 33 9 21 ¢ 3 ¢ 8 bles 
20 a’ Bw 2 0 20 4 1c 


SHOWSYSTEM 18-50 - :0 AX-11 Bliss-32 v4.0-742 P 9 
50s 008 1 ~300n 138% 93: 86; o CLIUTL. SRC JSHOWSYS.B32; 1 : _— Rid 
20 20 20 20 20 20 20 20 20 2 21 43 4 ! 0 cc ASCII \ IACE/ 'ZI\<0><0> P 
91 99 A i P.ABZ: .LONG 17694778 : 
43 41 1 20 46 41 35 31 21 bE SB SB ot COOTER PLACE: CARPET NCBMC !1SAF ISAC !3UB!OUL!AS !9UL !suN\ ; 
21 20 33 e $f s 23 33 HI 4¢ $ : H 9 if wench Usage etne ptt : : 
sag Mage 4 ai 1 20 8 ASCII \_!AC\ : 
01 00 14 P.ACB: .LONG 17694764 : 
43 41 35 21 20 46 41 1 21 4c 58 eet if PLACE: HoT NORE. !1SAF 'SAC !3UB!3(+) a | 
$8 33 38 $0 88 3 28 i Hl a2 5 3 ¢ same paes : -<slet raeets 
Pi 
0 20 20 ; 74 75 6F 0 64 0244 .ASCII \pped out -- 'Suw 'AC!/ Vi: 
PRRORGR GLEE SE HB Es rad ean Se | 
£9 5 21 20 30 20 0 ¢ ASCII \. _!81\<0><0> : 
01 00 6 0274 P.ACD: LONG 17694806 : 
43 41 35 21 20 46 41 35 31 21 4c 58 ae : 8 ie P.ACG: aaah SAAC H15AF 'SAC  !3UB!3(+) a 7 
cea CE Ee ee a yen or ae ot | 
0 20 20 7% 75 6F 20 20 64 65 70 Ab -ASCII \pped out -- 'Suw ACN : 
9 38 3h 8h ef gf oF 88 8h 58 58 85 88 20 20 0383 aig ie ; 
010€0048 O03¢t P.ACF: .LONG 17694792 : 
00000000" 002c8 “ADDRESS P.ACG : 
SD_LNMSSYSTEM= P.ABK 
eEXTRN SYSSASCTIM, SYSSTRNLNM 
.PSECT $CODES,NOWRT,2 
007C 00000 PRINT_DATA: 
,WORD Save R2,R3,R4,R5,R6 : 0463 
56 000000006 00 9€ 00002 MOVAB  SHOWSWRITE LINE, R6 : 
55 000000006 00 9€ 00009 MOVAR  SYSSASCTIMT RS : 
SE AO AE 9E 00010 MOV -96(SP), § : 
52 04 BC 00000040 8F C1 00014 ADDL #64 aDATA, SCRATCH 3 0308 | 
2 05 00010 TSTL (SCRATCH) : 051 
"OE 80021 | ag 
58 AE 00 FF676980 af 000000006 00 a 0022 1$: EMU EXESGL ABSTIN, #-10000000, #0, TIME 0521 
20 04 BC D0 $8 VL @DATA, DESC+4 : 0398 
E D4 0003A CLRL —s_ = (SP) : 0527 
SC AE OOF 0003C PUSHAB TIME : 
28 AE 9F 0003F SHAB DESC : 
C AE 9F 0004 PUSHAB DESC : 
5 4 F 4 CALLS #4, SYSSASCTIM : 
4 0 OD 04 MOVL RO, STAT Ys 3 
03 4 5 048 BLBS STATUS, 2$ : 
0148 4 BRW 19$ ; | 
18 AE 10 00 2$ MOVL #16, DESC_SYSNODE : 0536, 
10 (OA 2 AE 9E MOVAB SYSNO OpeQuF® DESC SYSNODE +4 >: 0537 | 
AE 9 A MOVAB TAM ST SSITMBLKPTR : 0547 
00020010 8F D 5e MOVL #131088, (SSTIMBLKPTR)* ; 


m 15 
S YSTEM 16-Sep-1984 01:22:0 AX-11 Bliss-32 v4.0-742 Pa 0 
50s 000 13-808- 138 93:46:08 CLIUTL.SRCJSHOWSYS.832;1 - (3 
80 20 AE 9 H MOVAB SYSNODEBUF (SS$ITMBLKPTR}* ; 
AE 9 MOVAB Dest SYSNODE, ($$ITMBLKPTR)+ : 
8 p CLRL - (SSITMBLKPTRS+ F 
08 AE OF F PUSHAB TRNLNMLST : 0557 
08 AE 07 00 VL #1, 8(SP) : 
AE 9F 0007 PUSHAB 8(§P) : 
6 :; ef ' ibs PUSHAB 55 CAMS YSTEM ; 
10 AE 02000 F pO 1 VL posh ce 2, 16(SP) : 
1 F 9 SHAB 1e<SP) : 
000000006 00 F CALLS #5, SYSSTRNLNM : | 
4 D VL — RO STATUS : 
5 4 € BLBS = STATUS, : | 
18 AE B84 000 CLRW DESC_SYSNODE : 0559 
27 11 0009C BRB 8$ : | 
SF OF 20 AE 91 OO09E 38: CMPB  SYSNODEBUF, #95 + 0565 
06 if OOA BNEQ 4$ : 
18 AE 87 OOOA DECW  DESC_SYSNODE : 0568 
1C AF D6 000A8 INCL  DESC“SYSNODE+4 : 0569 
ps OOAB 4$: CLRL Sd 3 05 : 
BE 18 AE A 3A OOOAD 5S: LOCC #58, DESC_SYSNODE, @DESC_SYSNODE+4 : 057 
2 12 0008 BNEQ 6$ : 
1 04 0008 CLAL sR : 
1 05 00087 6$ TSTL = RI + 0574 
03 13 00089 BEQL «6s 7$ : 
18 AE 87 0008B DECW  DESC_SYSNODE + 0575 
3 06 9008 7$ INCL 1 : 0573 
01 3 D1 000c CMPL i #1 : 
—8 18 000C BLEQU 5§ : 
30 AE 0000" CF 9€ O00C5 Bs: MOVAB P.ABO, ARGLIST ; 0582 
4 AE 18 AE 9E 990¢ MOVAB DESC_SYSNODE, ARGLIST+4 : 058 
M4 AE D4 0000 CLAL ARGLIST+8 3 0584 
3c AE 0 AE i 000D ROVAB DESC ARGLIST+12 : 0585 
50 AE 9 C2 0000: SUBL2 #3, DESC : 0586 
E 04 0000C CLRL 0s = ¢ SP) 3 0591 
0099" CF 9F 000D PUSHAB P.ABR : 0592 
8 AE OF 900E PUSHAB ARGLIST : 0591 
0000' CF 9F ODE PUSHAB P.ABP ; 
66 04 Fe 00E9 CALLS #4, SHOWSWRITE_LINE : 
62 3 OOOEC 98: TSTL (SCRATCH) : 0603 | 
1 12 133 BNEQ 108 : 
04 OOF RET : | 
51 0c a2 OOF1 10$:  MOVAB 12(SCRATCH), R1 : 0609 | 
: p O0F3 TSTL (RI) ; 
5 F BLEG 13$ ; 
OE gi D1 OOF CMPL 6s (R11), #14 > 0610 | 
0 14 000FC BGTR 13$ : 
02 gi D1 FE CMPL © (R1), «#2 > 0613 | 
9 2 1 BNEG 12s : 
2c =A2. «DS 00103 TSTL  44(SCRATCH) > 0614 | 
1B 19 001 BLSS 128 ; 
12 15 001 BLEQ=Ss«d118 ; 0617. 
1 2c COA ° 10A CMPL  44(SCRATCH), #14 : 0618 
OC 14 001 BGTR 118 ; 
50 3¢ A2 00 0011 MOVL  44(SCRATCH) RO > 0619 
61 0000'CF4 : 114 MOVL RSN_TABLE~4(R0}, (R1) ; 
1 11A BRB 14$ : 
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SHOWSYSTEM 16-Sep-1 :22:0 AX-11 Bliss-32 V4.0-742 
Soeeb08 eee rk Pa ioe MT het hg Pio SE Lee 
61 0000' cr 9 11¢ 11S: MOVAB P.ABT, (R1) 
: 11 001 BRB 14$ 
50 6 D0 00103 128:  MOVL (RI), R 
6 0000'CF p 1 MOVL STATE TABLE~4CROJ, (R1) 
0 10¢ BRB 4$ 
1 0090" CF 3 10— 138 MOVAB P.ABU, (R1) 
0 4 A 133 14$ MOVAB 36(SCRATCH), RO 
4 60 00 001 MOVL (RO), STATUS 
06 A : 13A TSTL 4 (SCRATCH) 
0 1 BEQL 8©=-«*158 
60 0000° cf 9 1 MOV P.ABV, (RO) 
a 1 144 BRB ies 
07 6 1 3 146 15$: BC #21, (RO), 16 
6 0000° cf ‘ 14A MOVAB P.ABW, (RO) 
0 11 OO14F BRB 18$ 
07 60 OE 3 151 16$: BBC #14, (RO), 17% 
60 0000' cr E 155 MOVAB P.ABX, (RO) 
5 1 15a BRB 18$ 
) 60 0009" CF 96 0015C 178: mov P.ABY, (RO) 
10 A2 iF 10 A2 € 161 18$:  SUBL3 16(SCRATCH), #31, 16(SCRATCH) 
04 Ag 30 A2 9A 00167 MOVZBL 4 CSCRATCH) 4(SCRATCH 
8 A is.4 oe 016¢ MOV 49(R2), (SCRATCH) 
4F 5 é 01 BLBC STATUS 23 
58 OA 00 FFFE7960 aF 18 a2 vA 124 EMUL 24 (SCRATCH), #-100000, #0, TIME 
4 AE 40 AE 9E 00183 MOVAB PROCTIM, DESC+4 
7E 04 188 CLRL = = (SP) 
5¢ 9F 0018A PUSHAB TIME 
58 = AE OOF (001 PUSHAB DESC 
5c =O AE. sO9F«001 PUSHAB DESC 
65 4 FB 0019 CALLS #4, SYSS$ASCTIM 
54 0 DO 0019 MOVL RO, ST 
OA 54 £8 00199 BLBS STATUS, 208 
54 DD 0019C 19$:  PUSHL STATUS 
000000006 00 01 FB O19 CALLS #1, LIBSSIGNAL 
18 «OA 50 AE 3 O1A6 20$:  MOVAB DESC, 24(SCRATCH) 
1 54 €9 OO1AB BLBC STATUS, 22$ 
08 08 BC 04 E1 001 BBC #4, @FLAGS, 21$ 
2 OD 0018 PUSHL SCRATCH 
0000° CF 9F 001B Pus . 
18 11 00189 BRB 24$ 
5 po 1BB 21$ PUSHL SCRATCH 
0000° cr F 180 PUSHAB P.ACB 
3 11 001C BRB as 
08 08 BC 94 E1 Ooics 22$: BBC #4, @FLAGS, 23S 
2 DD gic PUSHL SCRATCH 
0000" CF 9F OOICA PUSHAB 
$ 11 OicE BRB 24$ 
po 106 23$ PUSHL SCRATCH 
0000' CF F 1pe PUSHAB P.AC 
FB 001D6 248: CALLS #2 SHOUSURTE LINE 
40 A f 109 MOVAB G4iR ), SCRATCA 
FFOC 100 BR 
4 OO1E RET 


3; Routine Size: 481 bytes, Routine Base: S$CODES + 01D4 
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614 705 1 END 
615 $788 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 

; PSECT SUMMARY 
3 Name Bytes Attributes 
; SPLITS 716 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS 11 NOVEC, WRT, RD *NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 949 WNOVEC,NOWRT, RD, EXE,NOSH R, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
3 quscsens TEESE seneecee Pages Processing 
; File Total Loaded Percent Mapped Time 
3 _$255$DUA28:(SYSLIBILIB.L32;1 18619 62 0 1000 00:01.9 
H COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SHOWSYS/OBJ=OBJ$:SHOWSYS MSRC$:SHOWSYS/UPDATE=(ENH$: SHOWSYS) 
3; Size: 947 code + 830 data bytes 
3 Run Time: 0:22. f 
3; Elapsed Time: ij 14 
3 Lines/CPU Min: 186 3°" 
3 ,ovense/CPU-Aie: 23509 
3 ponery Used: 204 pages 
3 ilation Complete 
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